home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte0987.arc / REUSESOF.ARC / SORTTEST.MOD < prev   
Encoding:
Text File  |  1987-06-09  |  886 b   |  36 lines
  1. (*****
  2.  *
  3.  *     Test of generic sorting routine
  4.  *
  5.  *****)
  6. MODULE SortTest;
  7.  
  8.      FROM InOut IMPORT OpenInput, CloseInput, WriteString, WriteLn, ReadCard,
  9.                        OpenOutput, CloseOutput;
  10.      FROM Sort IMPORT Qsort;
  11.      FROM SortElemType IMPORT ElemType, select, optionMenu,
  12.                               ReadArray, WriteArray;
  13. CONST
  14.      N = 200;
  15.  
  16. VAR
  17.      a : ARRAY [1..N] OF ElemType;
  18.      n : CARDINAL;                    (* actual number of elements in "a" *)
  19.      opt : CARDINAL;
  20.  
  21. BEGIN
  22.    WriteString("Which file contains the data ? ");
  23.    OpenInput("");
  24.    n:= ReadArray(a);
  25.    CloseInput;
  26.    optionMenu;
  27.    WriteString("Sort by ? ");
  28.    ReadCard(opt); WriteLn;
  29.    select(opt);
  30.    Qsort(a,n);
  31.    WriteLn; WriteString("Output file [ Esc for console ] ? ");
  32.    OpenOutput("");
  33.    WriteArray(a,n);
  34.    CloseOutput
  35. END SortTest.
  36.